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MESSAGES FROM 


Frof^ The Ec5i.~trOT" ^ 3 Atari 

Well* I' not sure, but I think that this is the 
next to last newsletter I'll be putting out* Kathy 
Eergh will be taking over, (at least I hope so) and 
the newsletter will once again need lots of 
support from you the readers* and users* I'll be 
helping Kathy* and the January issue will be a 
combined opus. 

Of course* the January meeting will be held on 
January 3* at Creative Computing* as no one in 
their right minds will be wanting to attend a 
computer meeting on New Years Day! The 
business meeting will be at 4 pm at Burger 
Kitchen prior to the meeting* and of course* you 
are all welcome to attend and put in your input. 
(Redundant? Probably.) 

The main thing of interest we're working on 
right now is the Second Northwest Atari 
Computer Conference to be held the last weekend 
in March* Much work remains to be done on this 
project* but it should be absolutely and 
thoroughly super-enjoyable. 

The nfew Atari Computer should be released 
shortly. Word is that it is called the LX 1200. 
And prices on the 300 are supposed to topple. 

Well Emerald City Computer is moving to 
Seattle* and Dick* my partner* is decreasing 
emphasis bn Atari and Atari-related items. Why 
do I bring this up? Because the S#P*A#C*E BBS 
is going to be looking for a new home. In fact we 
have to decide if we wish to continue this 
function* as the hardware and phone line have 
been provided gratis through Emerald City. 
Unfortunately* I can't pick up the ren't on the 
store locale at this time* and although Dick would 
be more than happy to transfer the phone-line to' 
S*P*A*C*E* how would we go about this? Oh 
well* something more to discuss* at the next 
meeting... 

JW... 

b'ooVm 

Docu/U bhlL 

ATARI is a Tradmark of ATARI INC. and is a 
whooly owned subsidiary of WARNER INC. 
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CALL, TO ASSEMBLY 
by Tom Newman 


MICRO-PAINTER article# part three! 

"The uncampaetor" 

In part two of this article we created a disk 
file containing the compacted data of our 
MICRO-PAINTER picture. This article will show 
you how to load-the compacted file back into RAM# 
using a portion of the progRAM from the first 
part of the article. We will also have to create a 
mode 'E' display list so we can view our picture 
as the program unfolds it. Again we will use a 
portion of the first program. Keep in mind that 
the screen memory and mode 'E' display list is a 
necessary overhead in displaying pictures created 
by MICRO-PAINTER. 

One of the possible uses of this program# is to 
store several pictures in RAM# and then unfold 
them one at a time into a common screeo RAM 
area. Such as a tutorial# where a series of 
complex# rapidly availible# pictures would be 
desireable to clarify a point. My sons# of course# 
have a different intrest in the advantages of the 
compactor program. It lets them get all four of 
the DONKEY KONG screens into the computer's 
memory at the same time# which furthers their 
hopes that I will put some action into the 
pictures they have so artfully created. 

In using the MICRO-PAINTER pictures in a game# 
I would suggest that you start by choosing one 
with a large static playfield. Then use players for 
the moveable objects. There are collision 
detection registers built into the ATARI 
hardware# which can detect contact between the 
players and the playfield# or each other. The use 
of these registers is outlined in ATARI'S 
hardware manual(C016555). To get an idea of 
what can be done with bit mapped graphics# take a 
look at ERODERBUND'S CKOPLIFTER for an 
outstanding example. That is the type of thing 
which could be accomplished with these pictures#- 
not with as much resolution# but the same type of 
action and much more control over the colors. 

At this point I will leave the possibilities up to 
your imagination and get down to an explanation 
of the un-compaction program. 

Lines 130 to 230 contain the equate table. If you 
are using the ATARI ASSEMBLER/ EDITOR 
cartridge use zero page locations $B0 to $B8 


insted of $F0 to $F8. Each assembler (hopefully) 
will have some zero page locations set aside for 
your use. The exact locations vary from one 
assembler to another, so be certain the locations 
you use are free# or you may discover the gates 
to never never land. 

Lines 270 to 380 initilize the program variables# 
like where to put the un-compacted data and 
where to get it. 

Lines 420 to 800 contain the program body. First 
we get a byte from the data table we created in 
the last article. The table is indexed by the 'Y' 
register to first point to the data byte and then 
the repeats byte. The actual movement through 
the table however is accomplished by altering the 
zero-page pointer 'TABLE'# and then reseting the 
'Y' register to zero upon each access to the 
table. I also have used the 'Y' index register to 
keep track of which column is being put to the 
screen. The column number is saved in a 
temporary location called 'SAVEY'#while the data 
table is being accessed. 

In the mode 'E' standard width screen there are 
forty bytes per line. In order to put one byte 
directly under another in the screen ram# to 
create the columns# we must add forty (HEX 28) 
to the previous address. This is accomplished in 
lines 580 to 640. If the end of the column has 
been reached then the buffer is restored to its 
starting value# and the 'Y' register incremented* 
When all of the columns are transfered then the 
program is exited* 

Now it is time to take a look at your picture. To 
do that you must have the mode 'E' display list in 
memory# and point the display list pointer at the 
new list. Use lines 530 through 980 of the 
program on page 9 of the November newsletter to 
accomplish this. Assemble the program to disk 
(*TF "DtYOURFILE)# so that you may use it later. 
Now assemble the program in this article into 
RAM.(DON'T FORGET TO SAVE IT). BLOAD the 
compacted file you created from the last article# 
and the display list setup mentioned above. To 
execute the program type MON then 5F00G (THE 
SCREEN WILL GO BLANK)# listen for the bell! 
Carefully type 5E00G and your picture should 
appear on the screen* 

Good luck* T*E.N* 
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PROGRAM LISTZNG 


00010 .LI OFF 

00020 .OH 55EQQ 

00030 4444 * 44 * 444444 * 4 * 4444444444*444 
00040 * UN-COMPACTOR * 

00050 * NEWS LETTER ARTICLE C FARTS3 * 
00060 * BY TOM NEWMAN * 

00070 4 DECEMBER 1982 # 

00080 444444444444444444 * 44444 * 444*44 
00090 4 

00100 444444444444444*444444444444*44 

00110 4 EQUATE TABLE 4 

00120 *444444444444444444444*44*44444 

00130 BUFFER .EQ $F0 
00140 BUFFLO ,EQ $F0 
00150 BUFFHI .EQ $F1 
00160 TABLE .EQ $F2 
00170 TBLLO .EQ $F2 
00180 TBLHI .EQ $F3 
00190 SAVEY ,EQ $F4 
00200 REFEATS .EQ $F5 
00210 HOMELO .EQ $F6 
00220 HOMEHI .EQ $F7 
00230 DATA .EQ $F8 


00240 44444*44*4*4444*4*44444**44*44* 

00250 4 INITILIZATION 4 

00260 444444*4*44444*444**4444*44444* 

00270 START LDA #$50 
00280 STA BUFFLO 

00290 STA HOMELO 

00300 - LDA #$61 
00310 STA BUFFHI 

00320 STA HOMEHI 

00330 LDA #$00 

00340 STA TBLLO 

00350 STA SAVEY 

00360 LDA #$40 

00370 STA TBLHI 

00380 LDX #$C0 

00390 444444*44444444***4444444444444 
00400 4 PROGRAM BODY * 

004 10 444444444444444*444444444444444 

00420 CHANGE LDY #$00 
00430 LDA (TABLE),Y 

00440 STA DATA 

00450 INY 

00460 LDA (TABLE),Y 

00470 STA REPEATS 

00430 CLC 

00490 LDA TBLLO 

00500 ADC #502 

00510 STA TELLO 

00520 LDA TBLHI 

00530 ADC #$00 

00540 STA TBLHI 

00550 BLOCK LDY SAVEY 
00560 LDA DATA 


00570 STA (BUFFER),Y 

00580 CLC 

00590 LDA BUFFLO 

00600 ADC #$23 

00610 STA BUFFLO 

00620 LDA BUFFHI 

00630 ADC #$00 

00640 STA BUFFHI 

00650 DEX 

00660 BEQ NEXTCOLM 

00670 REENTER INC REPEATS 
00680 BNE BLOCK 

00690 JMP CHANGE 

00700 NEXTCOLM INC SAVEY 
00710 • CPY #$27 
00720 BEQ OUT 

00730 LDA HOMELO 

00740 STA BUFFLO 

00750 LDA HOMEHI 

00760 STA BUFFHI 

00770 LDX #$C0 

0C730 JMP REENTER 

00790 OUT ERK 
00800 .END 


Review! 


DEFENDER 

$44,95 16K Rom Cartridge 



Reviewed by Jerry Wright 


Well, its finally here! We've been waiting For 
months for the release of Defender, and I guess 
it was worth the wait. The graphics are hi-res 
for sure. 


You are the pilot of the ship "DEFENDER" and 
your mission is to protect the humanoids from 
being captured and mutated by the evil aliens. 
The aliens have Landers, Swarmers, Baiters, 
Bombers, and the Horrible PODS. They'll blow 
you up by shooting you, landing on top of you, or 
setting space mines in your way. 

You not only see the enemy on the screen in 
front of you, but you have a scanner which covers 
a much wider area and can tall you wich of your 
ten humanoids is in danger, 

The action is fast and furious, and you have 
joystick control of your ship, as well as keyboard 
input allowing you to use "Smart Bombs" and 
"hyperspace". 

The documentation is fun to read, and is even 
useful, with strategy hints that will improve 
your score. 

So give Defender a try. It has worthwhile 
animation and is an almost exact duplication of 
the arcade game of the same name. 
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BYLAWS 
by The Bylaws Committee 

(These bylaws will be voted on during the January 
meeting, unless we hear strenuous objections, so 
read them please*) 

November 30, 1982 


SEATTLE / PUGET SOUND ATARI COMPUTER 

ENTHUSIASTS 

(S*F*A*C*E) 

CONSTITUTION AND BYLAWS 


CONSTITUTION 

ARTICLE I - Name and Object _ 

Section 1* The name of the club shall be the 
Seattle / Puget Sound Atari Computer 
Enthusiasts (S*P#A#C#E) 

Section 2* The object of the club shall be to 
promote and support interest in Atari computers 
and programming* 

Section 3* The club shall not be conducted or 
operated for profit and no part of any profits or 
remainder or residue from dues or donations to 
the club shall be used to the benefit of any 
member or individual* 

Section 4* The members of the club shall adopt 
and may from time to time revise such bylaws as 
may be required to carry out this object* 


BYLAWS 


ARTICLE I - Membership 

Section 1* Eligibility* There shall be one type of 
membership open to all persons who subscribe to 
the purpose 
of this club* 

Section 2* Dues* Membership dues shall be $12*00 
per year, payable on or before the first (1st) day 
of January of each year* Persons joining mid-year 
pay that perssntaga of the dues which cover the 
remainder of the year* 

No member may vote whose dues are not paid for 


the current year* 

The amount paid for membership dues shall be 
reviewed each October (or at the request of the 
Treasurer) by the Board* Proposed changes shall 
be voted upon by ballot of the membership* Dues 
shall be set such that S*P*A*C*E need not rely 
on donations of materials or services to fund its 
regular activities* 

Section 3* Obtaining Membership* Each applicant 
for membership shall apply on a form as approved 
by the Board and which shall provide that the 
applicant agrees to abide by these Bylaws and 
Constitution* Upon payment of the prorated dues, 
s/he becomes a member in good standing* Each 
membership carries one vote* 

Section 4* Termination of membership 
Memberships may be terminated: 

(a) by resignation* Any member may resign 
from the club upon written notice to the 
Corresponding Secretary, but no portion of dues 
will be refunded* 

(b) by lapsing* A membership will be 
considered as lapsed and automatically 
terminated if the-dues are not paid 60 days after 
the first day of the fiscal year* In no case shall 
a person be entitled to vote at any cluo meeting 
whose dues are unpaid as of that meeting* 

(c) by expulsion* A membership may be 
terminated by expulsion as provided in Article VI 
of these Bylaws* 


ARTICLE II - Meetings and Voting 


Section 1* Club Meetings* Meetings of the club 
shall be held in a central location on the First 
Saturday of the month, at a time and place 
designated by the Board* 

Section 2* Special Club Meetings* Special club 
meeting may be called by the President or a 
majority of the members of the Board* Written 
notice of the time, date, location, and subject of 
said special meeting shall be mailed by the 
Corresponding Secretary at least 5 and not more 
than 15 days prior to the meeting* No other club 
business can be transacted thereat* 

Section 3* Board Meetings* Meetings of the 
Board of Directors shall be held the first 
Saturday of each month prior to the Club meeting* 
A quorum for such a meeting shall be two-thirds 
of the Board* 

Section 4* Special Board Meetings* Special 
meetings of the Board may be called by the 
President* Written notice of the time, place, 


nrr 
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date* and purpose of the meeting shall be sent 
out by the Corresponding Secretary at least 5 and 
not more than 15 days prior to said meeting* No 
other business shall be transacted thereat* A 
auorum shall be two-thirds of the Board* 

Section 5* Voting* Each member in good standing 
whose dues are paid for the current year shall be 
entitled to one vote. No proxy voting will be 
allowed* 


ARTICLE III - Directors* Sub-groups arid Officers 


Section 1* Board of Directors* The Board shall 
be comprised of the President* Vice-president* 
Recording Secretary* Corresponding Secretary* 
Treasurer* Librarian* Program Chairman* 
Newsletter Editor and the elected representative 
from each sub-group* all of whom shall be elected 
for one-year terms annually as provided in 
Article IV and shall serve until their successors 
are elected* General management of the Club's 
affairs shall be entrusted to the Board* and they 
each are empowered to get mail from the Club's 
P.O. Box and forward it to the Corresponding 
Secretary* 

% 

Section 2* Sub-groups* Whenever groups of 
S*P#A#C*E members wish to meet regularly at 
other than the specified time and date for Club 
Meetings* they may do so by meeting the 
following conditions! 

(a) They must elect a representative and an 
alternate to the Board of Directors, one of which 
must attend every Board meeting* 

(b) They must submit a record of the contents 
of the meetings to the Newsletter Editor for 
inclusion* 

Section 3* Officers* 

(a) The President shall preside at all meetings 
of the club and of the Board* and shall have the 
powers and duties normally appurtenant to the 
office of President in addition to those specified 
in the Bylaws* 

(b) The Vice-President shall have the duties 
and exercise the powers of the president in case 
of the Presidents death* absence, or incapacity* 

(c) The Recording Secretary shall keep a record 
of all meetings of the club and Board and of all 
matters of which a record shall be ordered by the 
Eoard and submit a synopsis of club meetings to 
the Newsletter Editor* 

(d) The Corresponding Secretary shall have 


charge of the correspondence* notify members of 
special meetings* keep a roll of the members of 
the club with their addresses, and carry out such 
other duties as are prescribed in these Bylaws* 

(e) The offices of Recording and 
Corresponding Secretaries may be held by the 
same person* 

(f) The Treasurer shall collect or receive all 
moneys due or belonging to the club* He shall 
deposit the same in a bank designated by the 
Board in a dual signature account* in the club's 
name* Bank statements shall be posted directly 
to the Treasurer* His books shall at all times be 
open to inspection of the Board* and he shall 
report to them at every meeting the condition of 
the club's finances* At the annual meeting he 
shall render an account of all moneys received 
and expended during the previous fiscal year* 
Each January* the past Treasurer*current 
Treasurer, and another Board member (or two in 
the event of a re-election) shall audit the Club's 
Books* 

(g) The Librarian shall hold for the Club all 
Disks* magazines* Newsletters* books or other 
items of interest to the membership in such a 
manner as to make them available to the 
membership and will head the committee set by 
the Board to review all material which may be 
included on Club Disks* His committee is charged 
with seeing that no copyrighted material is 
reproduced by the club and that every program 
distributed carries remark statements as tD its 
origin* documentation of public domain* the names 
of the screeners and the date screened* 

(h) The program Chairperson shall attempt to 
provide demonstrations of techniques or 
equipment of interest to the membership at each 
main group meeting. 

(i) The Newsletter Editor shall be responsible 
for seeing that the Messages from S*P*A#C*E is 
created and mailed after the main meeting each 
month* that the Secretaries and sub-groups know 
the date by which their reports must be received* 
and turn monies for advertising in the 
Newsletter over to the Treasurer* S/he may work 
alone or with a committee as approved by the 
Board* 

Section 3* Vacancies* Any vacancies occurring 
during the year on the Board shall be filled for 
the unexpired term of office by a majority vote of 
all of the then members of the Board at its first 
regular meeting following the creation of the 
vacancy, or at a special meeting called therefore* 
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ARTICLE IV - The Club Year, Annual Meeting, 
Elections 


Section 1* Club Year* The Club's fiscal year shall 
begin on the First day of January and end on the 
31st day of December* The clubs official year 
shall begin at the first main meeting of the year 
and run until the next January main meeting* 

Section 2* Annual Meeting* The annual meeting 
shall take place in December at which nominated 
candidates will be presented to the membership* 

Section 3* Elections* For each position, the 
nominated candidate receiving the most votes in a 
secret ballot of the membership in good standing 
sent out by the Corresponding Secretary or 
through the Newsletter the first week of 
December and returned before December 31st 
shall be declared elected* 

Section 4* Nominations* No person may be 
nominated in a club election who does not own an 
Atari Computer* During the month of September 
the Eoard shall select a nominating committee of 
at least three members not more than one of 
whom shall be a member of the Board* The Board 
shall name a chairman for this committee which 
will meet before October 1st tot 

(a) Nominate at least one person for each 
position on the Eoard except sub-group reps* 
After securing the consent of the nominated 
candidates in writing, their names shall be 
reported in writing to the Corresponding 
Secretarv* 

(b) The candidates so nominated will be 
presented at the October main meeting and in the 
October Newsletter* 

(c) Additional nominations may be made at the 
November Main meeting by any member in 
attendance, providing that the person so 
nominated does not decline* No person can be a 
candidate for more than one position* 

(d) Nominations cannot be made in any manner 
other than as provided in this section* 

ARTICLE V - Committees 

Section 1* The Board may each year appoint 
standing committees to advance the work of the 
club in such matters as have been approved by the 
membership in a ballot vote mailed with the 
Newsletter and returned in good order within 30 


days* 

Section 2* Any committee appointment may be 
terminated by a majority vote of the full 
membership of the Board upon written notice to 
the appointee} and the Board may appoint 
successors to those persons whose services have 
been terminated* 


ARTICLE VI - Discipline 

Section 1* Conviction of copyright infringement* 
Any club member convicted of knowingly selling 
or reproducing copyrighted diskettes for other 
than personal back-up use will be expelled from 
membership in the club* 

/ 

Section 2. Expulsion of a member is automatic at 
the time final court judgement is made* The 
member will be notified of the expulsion by the 
Corresponding Secretary* No portion of dues will 
be refunded* 


ARTICLE VII - Amendments 

Section 1* Amendments to the Constitution and 
Bylaws may be proposed by Board or by written 
petition addressed to the Recording Secretary 
signed by 20% of the membership in good 
standing* Amendments proposed by such petition 
shall be promptly considered by the Board and 
must be submitted to the members with 
recommendations of the Board by the Recording 
Secretary for a ballot by mail or in the 
Newsletter within three months of the date when 
the petition was received by the Recording 
Secretary* 

Section 2* The Constitution and Bylaws may be 
amended by a two-thirds majority of the ballots 
returned within 30 days to the Recording 
Secretary* 


ARTICLE VIII - Dissolution 

Section 1* Dissolution* The club may be 
dissolved at any time by written consent of not 
less than two-thirds of the members in good 
standing* In the event of the dissolution of the 
Club whether voluntary or involuntary or 
byoperation of law, none of the property of the 
Club shall be distributed to any member or 
members of the Club, but after payment of all of 
the debts of the Club its, property and assets 
shall be given to the Superintend en t of 
Washington State Public Instruction for the 
benefit of student computer literacy* 
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ARTICLE IX - Order of Eueiness 


1 


Section 1* At meetings of the Club, the order of 
business, so far as the nature and character of 
the meeting may permit, shall be as follows** 


Call to order 

Minutes of the last meeting 
Report of the President 

Reoorts of the Secretaries 

* 

Reoort of the Treasurer 

Report of the Librarian 

Reports of Committees 

Report of the Program Chairperson 

Unfinished business 

New Business 

Any planned Demonstrations 
Adjournment 


Submitted by the Bylaw Committee^ 
Brad Reed 
Cliff Boyce 
Ray Kinote 
Tom Newman 
Tom >Iood 

Kathy’Bergh, Chairperson 


bylaws 


In absence of any other set procedures, Robert's 
Rules of Order will be observed* 

Except as otherwise specified, a simple majority 
vote or ballot will carry* 

Section 2* At meetings of the Board, the order of 
business, unless otherwise directed by majority 
vote of those present, shall be as follows! 

m 

Reading of the minutes of the last meeting 

Report of the Secretaries 

Report of the Treasurer 

Report of the Librarian 

Report of the Program Chairperson 

Report of the Newsletter Editor 

Reports of the Committees 

Unfinished Eusiness 

New Business 

Adjournment 


ARTICLE X - Treasury 

Section 1* Normal Operating Expense* Normal 
operating expenses shall be budgeted by the 
Board for the Club's support* Such costs as P*Q* 
Box rent, a set amount for publishing the 
newsletter, and other items as approved by 
majority vote of the Board shall be paid by the 
Treasurer as needed* 

Section 2. Other Expenditures* Costs beyond 
those budgeted or expenditures made for the 
benefit of the membershipshall be submitted to 
the Board through the Corresponding Secretary 
along with the receipts for Board approval before 
the Treasurer may make payment* 



* 

/ 
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L.etter "to “bhra Editor 
(Paul de Angusra is editor of STARBASE LGG) 

Dear Jerry, 

I have beer, thinking about the Atari Conference 
S*P*A*C*E is planning* Since you have committed 
yourself in writing (in your November issue), I 
have become excited about the idea* I have also 
become apprehensive about how it will turn out* 
All this talk of “booths"*** is this going to be 
just another trade show? 

I have been to quite a few computer fairs, and am 
always discouraged by the frank commercialism of 
these events* Now I wonder if the Atari 
Conference will be an imitation of such a fair? 
Shall we all set up card tables and signs, and try 
to collect money and prestiege from each other? 


blow-by-blow description of an AUTGR T JK*SYS 
. file! player/missile graphics initialization and 
shutdown? fine scrolling} interrupt programming* 


Provide hands-on demos of serious software, 
including programming tools/ Offer an open 


discussion of communication protocol problems 
with other computers* 


USEP. GROUP OFFICER'S ; How are the treasuries 
being set up and reported on? What does the 
copyright law permit? Have any groups 
undertaken team programming projects or 
performed community services? How about 
bylaws and incorporations? 


Maybe S*P*A*C*E had intended to present just 
this sort of conference all along* If so, then I 
apologize for presuming otherwise. In any event, 
I hope these ideas will be of some use use to you 
in planning the conference* 


The one thing I never get enough of at a computer 
fair is information* I don't mean colored 
brochures and business cards* I mean techniques 
I can use} answers to my questions} help with my 
problems. I would also like to share what 
techniques, answers and help I have with other 
people at the conference. 

I remember such transfers of expertise and skill 
at computer fairs quite vividly, because they are 
so rare* People at booths don't usually have a 
conference room handy} nor would their mastery 
of the subject justify one* I once encountered a 
beautiful woman representing a manufacturer of 
flatbed plotters who had no idea what the 
machines were for! 


Sincerely, 

Paul de Anguera 

Member, SPACE and STARBASE 

rt * # -X 

Thanks for the comments, Paul, and rest assured, 
we. don't want this to be "just another trade 
show" either* See the article elsewhere in this 
issue, -ed. 


Tacoma Meeting Notes 
by Kathy Eergh 

■ 

11-13-82 • 

We looked at t^ie Synapse Demo Disk and were 
mostly impressed* 


To be a success from my point of view, the Atari 
Conference will have to be more than a few rows 
of booths surrounded by crowds* I want to see 
discussions, seminars, and classes (I am not 
being redundant, they are all different)* This will 
only be possible if rooms large enough for 15 or 
20 people to sit down in are provided} and if the 
events are scheduled and publicized in advance. 

Here are some topics which I think would help 
meet the need for information at the conference} 

NEW U9HP.r ! Why buy a microcomputer? What is 
sc special about Atari computers? Are they good 
for anything besides playing games and 
programming? How hard would it be to learn 
BASIC? (How soon we forget that we were once 
beginners, anxious for advice and help!) 


Jim Chapman reviewed the main meeting* 

Chuck showed us Enhancements to Graph It from 
APX* Menu driven from a diskette, it allows you 
to save or retrieve bar graphs, pie charts, or 3d 
plots* Using the joystick, you can place the 
cursor on a charted point and learn the X, Y, and 
Z values* 

Phil Bergh demoed APX's Ultimate RemumDer 
Utility ($22*95). Default renumbers by 10, but 
you can set your own parameter flags* It is fast! 
The program sets safety flags, and if you run a 
program which needs part of the space on p* 6 
which the FlEN* taK.es, it erases itself* Use it by 
typing REN* One slight bug} If you use TRAP 
40000 (aline number too big to be legal) you get 
a garbage answer* 


OLD TJSEF.S i How do you interface machine-code 
with-with BASIC? What maintenance can a user 
perform on his own computer, and how? Give a 


Tom Neitzell talked about Analog #8 - Four color 
graphics in GP..0 with redefined character set 
with excellent explanations of how it do it* 
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al=c physically destroyed two disks using 
the ccmcacter utility c.n the S*?*A*C*E Utilities 
disk by trying to compact a VERY large program* 
Don't use it on a program with imbeded remark 
statements (10 GOTO 120 5 

REM DON'T DO THIS) because another line may 


be shoved on behind it and disappear from the 
useful program* Also, don't use line numbers 0-9 
as they are overlayed by the utility* 


1 i -77- 



Tom Newman arid Ray Hinote for their labors and 
to all of you who found me and made suggestions’* 
tr.cse which the committee approved are in the 
submitted draft* Some of the ideas were 


discards 
illegal in 


□ as being physically impossible 
27 Stales* 


an u 


R£r CRT F’rvljri i HE 

committee: 


The Atari Conference committee met at VIPS in 
Kent on December 9, 1982* Shannon Tunnard 
acted as de-facto chairperson* 


Tom Newman demoed Micro Fainter* a fantastic 
tool for drawing and filling areas using four 
changeable colors and solid* horizontal or vertical 
stripes* or checkerboard color patterns* The 
artwork with his programs in the last two 
S*F*A*C*E Newsletters show how elaborate the 
drawing can be* 


The first meeting discussed ways and means to 
• set up the conference and came to some 
conclusion about budgetting* Thank to excellent 
input from Dan Flanagan* we were able to set up 
a tentative cost base for running the conference* 
We discussed who we would like to see at the 
conference and charges* 


Tom Neitzell brought in Instedit from APX 
($22*93) a very powerful character set generator 
which will twist* roll* scroll or mirror your 
creation and display it in all modes on the main 
screen* so that you can see what you are creating* 

It has a problem if you have a fast chip* and Tom 
recommends the following as working with either 
chin! 

i 

Line 36 0 was : SOUND KO,KO,KO,KO: 
B=(13S-HP)/E4:B=INT(K2 A B)+K1-(B=K7): etc. 

It would be better as! 


360 SOUND K0»K0»K0#K0’E=(133-HP)/K4I 
E=IN7(K2 A 3+K1/K10)5L=(UP-K20)/K4:L=M+L 


This is needed because the fast chip is more 
accurate in performing exponentiation. The 
original statement compensated for errors in the 
old chip, the fix is goad for both. 


Brad Reed (back for a visit from WSU) showed us 
his homemade 400 keyboardcomplete with a 
numeric keypad - a lot easier on typists! 

We watched a GR.10 Waterfall from Byte. 

We also listened to the Star Wars Theme, 
downloaded from A.C.E., demoed by Jim Chapman. 
Jim picked this up at the previous Kent meeting - 
I guess Jim is trying to get his phone bill under 
control. 

After the meeting, those interested in writing 
Bylaws (who could find us) worked long and hard. 
My thanks to Cliff Boyce, Brad Reed, Tom Wood, 


It was determined to charge dealers and 
distributors a booth rental fee of $50.00 and an 
entrance fee of $2.00 for adults and $1.00 for 
students. 

The fair is tentatively scheduled for the last 
weekend in March, and it will probably be heid in 
three of the Northwest Rooms at the Seattle 
Center, We hope to have Atari attend, and also 
would appreciate seeing Bill Wilkinson of 
Optimized Systems Software, 

At our next meeting, we'll get together at 
Creative Computers in Kent, and go to Shannon 
Tunnard's house for the meeting* This will be 
held Dec. 30. at 7!00, 

Conference Consents 

We are going to need beaucoup dollars to get this 
conference started. On discussing this with Tom 
Newman, we came to the consensus that our dues 
should be collected as quickly as possible, and 
also monies from the club disK.s should be applied 
tQ the rental of the rooms. 


Dues are due now, and are $12.00 per year once 
again. Interestingly, many groups are charging 
$15.00 per year if you pay before January, and 
$20,00 thereafter. So, what a deal: 

The three Northwest Rooms cost approximately 
$o0u.00 per day, ana we can easily recoup the 
initial outlay, plus, Dne of several advantages 
to having the conference at the Seattle Center is 
that they supply chairs, tables, sound equipment 
etc., as part of the rental package. 
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PXAZZA 

This BASIC game is a graphics hunt for a mad 
bomber in a big hotel. You must guess where he 
has hidden the bomb before it blows up. 

The game was given to me with no credit as to 
whom the author might be, but it is fun and will 
make you crazy. 

As usual, all characters inside brackets (e.g. C S; 
1 ) are inverse video. 


10 ti=1000;ho=4000;cs=5000ipg=6000 
:c A=70001C L=80001C0=9000JE X= 1 0000 
15 FJGHT=31 001LEFT=82001UP=8300{ 
DOWN=84001W=i12001WW=112001WWW=i 1000 

idim rates (30) 

20 OPEN #2»4,0,"K1" 

100 GOSUB TI 


400 GOSUB HO 
500 GOSUB CS 


7+X,41!PLGT 7+X,391DRAWTQ 7+X.43 

4330 PLOT 5+X,21DRAWTO 7+X,Z‘.DRAWTC 7+X,6 

4340 COLOR 31PLOT 5 + X , 6 3 1 D R A W T O 

7 + X , & 3 : D R A W T O 7 + X,651DRAWTQ 

5+X,651DRA W TQ 5+X,671DRAWTC 7+X.67 

4350 PLOT 7+X»261DRAWTQ 5 + X,261DRAWTO 

5 + X , 2 8 1 D R A W T Q 7 + X,281DRAWTO 
7+X,301DRAWTO 5+X,30 

4360 COLOR 2IFLOT 5 + X , 5 1 5 D R A W T Q 
7+X,51 SDRAWTO 7+X,551DRAWTQ 5+X,551FLOT 
5+X,531DRAWTG 7+X,53 

4370 PLOT 5+X, 14 5 D R A W T Q 5+X, 131DEAWTO 
7+X,18JDRAWTO 7+X,161DRAWTO 5+X,16 
4372 NEXT X 

4375 REM ** DIVIDE ROOMS ** 

4380 FOR Y=15 TO 143 STEP 15 

4390 COLOR 05FLOT 12+Y,Q1DRAWT0 12+Y,79 

4395 NEXT Y 

4400 REM ** ROOM NUMBERS ** ' 

4410 POKE 752,1 

4420 POKE 656,05POKE 657,31? " 1 2 3 4 5 

6 7 8 '5 ' 


600 GOSUB PG 
700 GOSUB CA 
990 GOTO 600 

1000 REM ** TITLE GRAPHIC ** 

1010 GRAPHICS 2+16 

1020 COLOR 1 ’.POSITION 4,51? #6}"PIAZZA 
HOTEL" 

1200 FOR U=1 TO 5 IFOR X=2 TO 13 


1210 COLOR 21SETCOLOR l,4,145POSITION X,31? 
#61CHR$(270)5FQ5ITION 20-X,71? #6}CHR$(270) 
122 0 COLOR l {POSITION X 
#6}CHF.$(142)1P0SITI0N 20-X,71? #6}CHR$(142> 
1230 FOR 2=1 TO SINE XT ZlNEXT X 
1310 FOR ZZ = 4 TO 61COLOR 21SETCOLOR 
1 ,0,141POSITION 2,10- 
#6{CHR$!270)!POSITION 18,221? #6{CHR$(270) 


o ♦ o 

t * • 


n n 
L L 


132 0 COLOR 1 {POSITION 2,10-221? 
#6{CHR$(142)5POSITION 18,2Z1? 
#61CHRS(142)5FOR Z=1 TO 161NEXT ZlNEXT 2Z 
1330 NEXT U 
1999 RETURN 

4000 REM ++ DRAW hotel 

40 10 GRAPHICS 75COLOR 
1!D=INT(RKD(0)*15)+11IF D=3 OR D = 4 OR D=5 


THEN GOTO 4010 

4020 FOR X=0 TO 77 STEF 12 

4030 C=C+1SIF C=4 THEN C=1 

4040 SETCOLOR 0.,D,65SETCOLOR 1,D,10 
1SETCOLOR 2,D,2 

4100 PLOT 145,10+XlDRAWTO 145,0+X 1DRAWTO 
13,0+X {POSITION 13,10+X 
4110 POKE 765,C 
4120 XIQ IS,#6,0,0,"SI" 

4130 NEXT X 

4300 REM ** DRAW FLOOR NUMBERS ** 

4305 FOR X-2 TO 145 STEF 143 


4310 COLOR UPLOT 6+X.741DRAWTO 6+X,78 
4320 PLOT 5+X ,39 ID R A WTO 5 + X, 411DRAWTC 


4430 POKE 656,1 IPOKE 657,11? "[ PIAZZA HOTEL 
PIAZZA HOTEL PIAZZA HOTEL]" 

4999 RETURN 

5000 REM ** COMPUTER SELECTION ** 

5100 COFL=INT(RHD(0>*7)+1 
!CORM=INT (RND (0)*9)+1 

5200 BOOM=INT(RND(0)*5)+2 
5300 EXPL=01GUESS=0 
5400 RETURN 

6000 REM ** PLAYER GUESS ** 


6010 GOSUB WW1POKE 656,31POKE 657,21? " 

ii. 

» 

6100 POKE 656,31POKE 657,31SOUND 
0,1,6,121GOSUB W1SOUND 0,0,0,05? "WHICH 
’ FLOOR?"} 

6110 GET #2,FL1IF FL<49 OR FL>55 THEN 
SOUND 0,20,6,121GOSUB W1SOUND 0,0,0,0IGQTO 
6010 


6115 PLFL=FL-43 


6117 POKE 656,3JFOKE 657,191? " "} 

6120 SOUND 0,3,6,121GO3UB W1SOUND 
0,0,0,05FOKE 656,31PQKE 657,171? PLFL}“ 
WHICH ROOM ?"} 

6130 GET #2,RM1IF RMC49 OR RM>57 THEN 
SOUND 0,20,6,121GQSUB W'.SOUND 0,0,0,01GQTQ 
6117 


6140 PLRM = RM-481 SOUND 0,2,6,125GOSUB 
W1SOUND 0,0,0,01POKE 656,31POKE 657,341? 
PLRMJIGOSUE WW 
6999 RETURN 


7000 REM ** CLUE CALCULATION ** 

7100 EXPL = EXPL+11GUESS = GUESS + 1 5IF 


EXPL=BOOM THEN GOSUB EX 
7150 FLC=CdFL-PLFLlRMC=CORM-FLRI4 
7200 IF FLC = 0 • AND RMC=0 THEN GOSUB 
CO {RETURN 


7250 IF FLC = 0 AND RMC 
RIGHT1RETURN 


0 T 


A 


£. 1 '- 


Lj O S J £j 


DEC 
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7300 IF FLC = 0 AND EMCCO THEN GOSUB 

T r?ir'rf’3r'rTTT;'>-i 

*W AW A * (A -AW A W A A 4 

7330 IF FLOO AND RMC = 0 THEN GOSUB 

TTP«t? - 5 , TTT'!3W 

W -fc *« W «• w -A. ^ 

7-00 IF FLOO AND SMOO THEN GOSUB 
RIGHT5G0SUB UP'RETURN 

7430 IF FLOO AND RMCC0 THEN GOSUB 
LEFT5GQSUB UP5RETURN 

7500 IF FLC<0 AND RHC = 0 THEN GOSUB 
DOWN {RETURN 

7530 IF FLCC0 AND RMC>0 THEN GOSUB 

RIGHT?GOSUB DOWN:RETURN 

7600 IF F L C < 0 AND RMCC0 THEN GOSUB 

LEFTJGOSUB DOWN {RETURN 

7??? RETURN 

8000 REM ** PRINTED CLUES ** 

8100 REM ** RIGHT ** 

8105 H=(FLRM#15)+5:V=89-(12*PLFL)5GOSUB 3500 
3110 COLOR 0:PLOT H,V5DRAWTO H+6,V 
3120 FLOT H+4,V+25DRAWTO H+6,V5DRAWTO 
H+4,V-2 

3130 h=o;v=o;return - 

3200 REM ** LEFT ** 

3205 H=<PLRM*15)+4:V=39-U2*FLFL)5GOSUB 3500 
3210 COLOR OJFLOT H.V5DRAWTQ H-6,V 
3220 FLOT H-4,V-25DRAWTQ H-6,V5DRAWTO 
H-4,V+2 

3230 h=o:v=o:return 

8300 REM ** UP ** 

3305 H*<FLRM*15)+45V*89-<12*FLFL)5GOSUB 3500 
3310 COLOR OJFLOT H,V5DRAWTO H,V-5 
3320 PLOT H-2,V-35DRAWTO H,V-5JDRAWTO 
H+2,7-3 

3330 h*o:v=o:return 
8400 REM ** DOWN ** 

3405 E=<FLRM*15>+45V=S9-<12*PLFL)5GOSUB 3500 
3410 COLOR OJFLOT K,V IDEA WTO H,V+5 
3420 PLOT H-2,V+35DRAWTO H,V+55DRAWTQ 
H+2,V+3 

3430 h=o;v=o;return 

3500 FOR M=1 TO 7 
3510 SOUND 0,40+(M*10),10,12 
3520 NEXT M5SOUND 0,G,0,Q5RETURN 
9000 REM ** CORRECT ROUTINE ** 

9010 K*(CORM* 15)+5JV=90-( 12*COFL) 

9 10 0 FOR 2 = - 2 TO 2!COLOH OIPLOT 

H-2.V+25DRAWTO H+2,V+Z5NEXT Z 

9110 PLOT H-l,V-3!DRAWTO H+1,V-35FLQT 

H-l,V-5!DRAWTO H+l,V-55FLOT H,V-55DRAWTO 

H,V-3 

9200 FOR Z=1 TO 3 

9220 SETCOLOR 4,0,145SGUND 0,50,10,125GOSUB 
WW53ETCQLQR 4,0,05SQUND 0,150,10,12JGOSUB 

ww 

9230 NEXT ZJSOUND 0,0,0,0 

9300 FOR Z=0 TO 35FOKE 656,Z5POKE 657,12? " 
"JJNEXT Z 

9310 POKE 752,1 ;PQKE 656,0:POKE 657,12? “ [ 

CONGRATULATIONS! ]" J 

9320 GUESTS=INT(RND(0)* 100)+(600-GUESS* 100) 


9330 POKE 656,i;PQKE 657,31? "YOU HAVE 
SAVED "{GUESTS}" GUESTS"} 

9340 IF GUESS* 1 OR GUESS=2 THEN RATES*" C 
SUPER SLEUTH 3" 

9344 IF GUESS-3 THEN RATE$="[ MASTER 
DETECTIVE 3" 

9346 IF GUESS=4 THEN RATES *"l DETECTIVE 
CLASS-A3" 

934 3 IF G U E S S = 5 THEN 
RATES*" CDETECTIVE-CLASS-B 3 " 

9350 IF GUESS>5 THEN RATES*" L GUM—SHOE3" 
9360 POKE 656,2}POKE 657,25? "YOUR RATING 

is... "};? rates; 

9400 POKE 656,3;PC'KE 657,35? "Press any key 
for another game..."} 

9410 GET #2, AG AIN 5GOT Q 400 
10000 REM ** EXPLOSION ** 

10090 H=(CORM*15)+5iV=90-(12*COFL) 

10100 FOR Z = -2 TO 25COLOR 05PLOT 

H-2,V+Z5DRAWTO H+2,V+Z5NEXT l 

10110 PLOT H-l,V-35DRAWTO H+l,V-35PLOT 

H-l,V-55DRAWTO H+1.V-55PLOT H,V-45DRAWTQ 

H,V-3 

10200 GOSUB W5SOUND 
2,75,3,155V 1=15:V2=15;V3=155FLASH=2 
10210 SOUND 0,20,S,V15SOUND 1,40,3,V25SQUND 
2,70,3,V3 

1 0 2 2 0 COLOR 05SETCOLOR 
4,4,FLASH 5B*INT (RND (0 )*H)+1 
5G=INT(RND(0)*V>+15J=INT(RND(0)*H)+1 
5F=INT(RND(05*V)+1 

10225 FLASH=FLASH + 125IF FLASHM4 THEN 
FLASH=2 

10226 IF H+B>153 THEN B=0 

10227 IF V-GC0 THEN G=0 
10223 IF V-FCQ THEN F=0 

10229 IF H-J<0 THEN C=0 

10230 PLOT H,V+25DRAWTO H+B,V+2-G5PLOT 
H,V+25DRAWTO H-J,V+2-F 

10250 Vl=Vi*0.915V2=V2*0.955V3=V3*0.975IF 
V3>3.2 THEN 10210 

10270 SOUND 0,0,0,05SOUND 1,0,0,05SOUND 

2,0,0,0 

10300 FOKE 752,1 

10310 IF COFL=PLFL AND CORM-PLRM THEN 
GOSUB 120005GOTO 10330 

10320 POKE 656,05POKE 657,05? "C TOO 

EADT--TOO LATE! 3" 

10330 POKE 656,15POKE 657,05? " YOU ARE 
NOW A DETECTIVE IN THAT EIG " 

10340 POKE 656,25FOKE 657,05? " HOTEL IN 
THE SKY,TO RETURN TO EARTH "} 

10350 POKE 656,35POKE 657,05? " FOR 
ANOTHER GAME PRESS ANY KEY... "} 

10400 GET #2,Q5GOTO 400 

11000 FOR M=1 TO 1005NEXT M 

11100 FOR M=1 TO 505NEXT M 

11200 FOR M=1 TO 505NEXT M5RETURN 

12000 POKE 656,05POKE 657,05? " t RIGHT 

ROOM -JUST TOO LATE- TOO BAD! 3"{RETURN 
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At the December 4 meeting nominations were held for the various offices of 
S*F*A*C*E. Folio W' i Pi CJ d. i e the people nominated for various offices* 

president : 

Tom Newman Tim Davis Cliff Boyce 

vice president : 

Lloyd Qllmann Jr*(#) Jim Chapman 

Gvrvs 

Terry Wright 

treasurer : 

Mike Smyth 

LIBRARIAN CHAIRMAN : 

George Ferris 

editor ; 

Kathy Bergh 
PROGRAM CHAIRMAN: 


Bruce Chapman 


OOKoteJ Lloyd stated that he wished to serve as V*P* only if Tom N* was elected as 
President, so Tom and Lloyd are a package deal* 



D 'zrp o •*> 
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« * * Hum io* * * * 

TKa 0M9MUI ion tlui iiiUA fti XAj t ill I i tt in 
wiii you t* |kint a ynoynam iiitin9 MiXk Xkm 

eonUfti eXtuaelftki ikinjU^i. It Mill aiio aXI om 
you tft ^hiiit Mil iiiji camaXmd and iauatltd by 
tli Atani Mood pMCJAiak. It io MniXXon in Baii« 

and nntuinflA an 6pian yjantnn witA 

CRflf 7^AX#iui • 

TAa dot ^a#Aioi nadn ai tim €#Uon a Homo you 
to faint Xkm ATASCII bit fattnan ai a mom o 4 
vjntieoi dotif vitA a dot Jo* jvnay binany om and 
notAinf fkintjd i«a jvjny cam. IX lay* out onn 
iiam *4 8 do to vAoticaiiy and tAm layO doom tAi 
vueuX column niykX uxt Xo tAm iinoX# moving Juom 
1*41 Xo niykX. Tkio ii ynmaX# buX Xkm a bytmo 
XkaX dmlinm aacA AXaoi cAanocltJi ana laid out 
konizomXaliy. Tkio ynoynom XaftmO mack cAomcIaM 
8 AooizonXoi bytmo and itoifi Xkm biXo a 44 la a 
vmnXicai dionaXion and oXommO Xkmm in a oXniny 
vAaoa Xkmy anm accmOOmd iaXmn by Xkm fno^aon. Tkio 
io doom in linmo aO Xo IM. - 

Tkm ByOon OmanO Xo kavm a onnblmm yninXimy 
Xkm doX yaXXmna ion ATASCII I5S (Tkm mnd aj liam 
ckanacXmn} t io iX ii ckanymd Xo a I at aX liam 1*10. 
Tkm only ckanacXmn in Xkm nanmaf ckanacXmn OmX 
XkaX conXainO a !55 in iXo dot pa t to on io Invmmom 
lloomocaOm A# Oo XkiO io Xkm only onm XkaX io 
OliykXly dijjooonX ioon Xkm oniyinal ukmn fkintid 
ouX. 

I kad Xo MniXm a okoaX aOOombly lanyuayn 
OubanuXinm Xo 'mxaluoivm on* ((OR) Xkm ckanacXmnO 
Xo ymX Xkm invnnOm doX fa ttiM . Tkio io olOo doo m 
aX liam 5B0. 

To uOm XkiO uXiliX# you nuoX kavm Xkm pnaynam 
you vtnX Xo faint ouX liotod in ATASCII ioan aO a 
iilmOfAC on a diOfcmXXm. Tkmn nun XkiO pnnynam# 
and Xypm in X/im lavicrn and filmOpnc (II :Manm.£XcJ 
oi Xkm fM^oon you wont foinlod. 

I Mould OmlmcX Xkm eoapnmOOnd mode ion moOX 
lioXinyo. TkaX io Xkm nodm XkaX madm XkiO a n tici n 
and lioXiny. Tkm It and 52 column XmayXk maun 
niem faoj oOQional loofciny lioXinyo ion 
ammoimXXmnO. Tkm I IB ImnyXk io abouX m ax im um ion 
an A 1/2 by If okmmX oi fo#Aa. Tkm ImnyXk *4 liam 
|tnd okould bm 9#II# an 12 ion XjpcX on lioXinyo# 
and A Mkon cnmaXiny a picXunm uOiny conXnol 
ckanacXmnO. You okould kavm XnanlaXiom on Mkmn 
pninXiny an anXic im on imXXmn madm uiXk Xkm AXani 
Mond pnocmOOon. TnanlaXion on dmlmtaO all conXnol 
ckanacXmnO. Tkio antic 1m uOmO a nadiiinad 
ckanacXmn OmX enmaXmd m iXA foaXmdiX and Xypmd in 
and 4 onmaXXmd wiXk Xkm AXani Hand Pnoemooon. To 
pninX out wiXk a diilmnmnX ckanacXmn OmX# you muoX 
kavm iX in pi a cm in mmmony bm^onm you nun tkio 
pnoynam. 

Tkm ATASCII valumO oi Xkm OubnouXinm aX liam 
540 anm: 104# 104# 104# 7t# 255# Itt# 212# lit# 0# 
Itt# 21t# U. 

Jams Hurphy 

Panaaa Canal ATARI Computer Users' 6roup 

10 REN * COIILIST.BOA BY JANES MURPHY * 

20 CHBAS^PEEK(7551*256 

30 GRAPHICS OSSFTC01OR 4,S,4:SETC0L0R 2,9,2:P0KE 01, 
39:POKE 82,1:P0KE 752,1 

40 COSUB SCO - - 

M F S - PG 13 


50 ? :? “INITIALIZING...Screen will SO blank":? “for 
about threw Minutes!" 

6# FOR CNT=1 TO 1500:NEXT CRT 

79 DIN BIT C7) , A$ (1024) , B$ (8), C$ (41, D$ (61, DIG €15} , SEG 

$ (12001,BUF$(1201,VN$(II:AMT=0:0$=“ ":P0KE 55 

5,0 

80 HOVE CH8A5*AMT,ADR(B$l,8 

90 NASK=128:F0R SEG=0 TO 7:F0R CNT=0 TO 7 

100 BIT(CNT1 = (ASCtB$(CNT+l,CXT+1114MASK> 0):NEXT CNT 

110 MASK=MASK/2:MSK=i:BVTE=0:FOR CNT=7 TO 0 STEP -1 

120 IF BIT(CNT1 THEN BYTE=8YTE*MSK 

130 MSK=MSK*2:NEXT CNT 

140 A$(SEG+l+AMT,SEG+i* AHT1=CHR$(BYTE):NEXT SEG 

150 IF AMT=1016 THEN 170 

160 AMT=AHT*8:GOTO 80 

170 POKE 559,34:POKE 752,0 

180 G0SUB 660 

190 ? : INPUT “Conpressed er Hide letters CC-M »",Y 
N$:IF YNS<>"C" AND YN*<>•*»• THEN 190 
200 C$="*L “:IF YNS=“W THEN C$=“« “ 


210 ? :? "Col unii length?":? :? “38-52-114 are twconm 
ended lengths.":? 

220 TRAP 210:INPUT “Enter coluiwi length (5 TO 1201 > 
>",INC:IF INC<5 OR INC>120 OR INC<>INT(INC1 THEN 220 
230 TRAP 230:? :? “Length of line feed in 72nd*s of 
inch.":? :INPUT "Enter length 18-9-11-121 »",LF 
240 IF LF<8 OR LF>12 OR LF=10 OR LFOlNTfLFl THEN 23 
0 

250 FF=752/LF:DS="tA LC ":D$(3,31=CHR$(LF1 :0$(61=CHR 
$(792/LFl 

260 ? :INPUT “Tranlation on? IY-N1 »",YN$:IF YNSO" 
Y“ AND VN$0"N“ THEN 260 


270 TR=0:IF YN$="Y“ THEN TR=1 

280 TRAP 280:? :INPUT “Enter DEVICE.'FILESPEC »“,DI6 
290 CLOSE Ml:OPEN ttl,4,0,DI$:POKE 752,1 


RETURN 


“,YN S 


300 ? ’.INPUT '{prepare printer! - Hit 
310 TRAP 610:CLOSE tt2:0PEN 82,8,0,“P:“:TRAP 560 
320 FRK=l:P0KE 764,255:? N2;D$ 

330 ? :? "Hit ang keg to stop printer!“:F0R CNT=1 
1000:NEXT CNT:POKE 559,0 
340 IF PEEK (76410255 THEN GOTO 620 


TO 


350 CNT=l:SEG$s"“ 

360 GET ttl,SEC:IF SEG=155 TNEN 390 

370 IF TR AND CSEC<32 OR (SEG>127 AND SEG<16011 THEN 
360 

380 SEG$(CNT,CNT1=CHR$(SEG1:CNT=CNT+1:GOTO 360 
390 LN=LEN(SEG$l:IF LN=0 THEN ? tt2:G0T0 350 

400 ANT-IXC 

410 IF LN>AHT THEN BUF$=SEG$(ANTtl-INC,ANTI:G0SUB 44 
0:GOTO 430 

420 BUF$=SEG$(AMT«1-INC1:G0SUB 440:GOTO 340 
430 AHT=AKT*INC:C0T0 410 

440 Z=LEH(BUF$):Z=Z*8:HI=INT(Z/2S61:L0=Z~HI*256:C$(3 
,31=CHR$(L01:C$(41=CHR$(HI1:? #2;C$; 

450 FOR CNT=1 TO Z/8:INV=0:BYTE=ASC(BUF$(CNT,CNT11 
460 IF BYTE>127 THEN INV=1:BYTE=8YTE~128 
470 IF BYTE>I1 AND BYTE<96 THEN 8VTE=8YTE-32:C0T0 49 
0 

480 IF BYTE<32 THEN BYTE=8VTE*64 

490 IF INV THEN B$=A$(BYTE«8*1,BVTE*8*81:G0T0 530 

500 ? 82;A$(BYTE«8+1,BYTE*8«81; 

510 NEXT CNT:FRM=FRM*1:IF FRN>FF-INT(FF«0.11 THEN ? 
#2; "* ": FRM=1: RETURN 
520 ? «2:RETURN 

530 FOR X=1 TO 8:Z=ASC( 8S(X ,X11 

540 DUWIY-USR(ADR("hhhimiDleifHe"! -ZHIF DUMHY=155 TH 
EN DUHMY=183 

550 PUT #2, DUMMY .’NEXT X:G0T0 510 
560 TRAP S70:? #2J"<2\":LPRINT 

570' POKE 752,0:POKE 559,34:CL03E ttl:CLOSE «2:IF ERR( 
010136 TNEN ? :? “ * ERROR r a ;ERR(01;“ AT LINE "JER 
R(ll;“ «“ 

580 POKE 77,0:? :INPUT “Do gou want to do another? ( 
Y-Nl »“,YN$:IF YNSO"Y“ AND YN$0"N“ THEN 580 
590 IF YN$=“N“ TNEN END 


the printer! 
: 752.0:POKE 


enm 
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HANDLING DATABASE FILES 


By: Bill Detent f PhD 
PAN*AT ARI*NEWS 


While working with the various data base prograts 
available for the Atari, 1 have run into a nutber of 
cases where the prograt is not able to handle an 
application exactly as required. One option is to write 
your own prograt frot scratch. This can be a very tite 
consuting option that you tay not want to undertake. A 
second option is to use the data files produced by the 
data base prograt and write a short prograt to tanipulate 
these data as you require. This article will introduce 
you to the structure of data base files in disk storage 
and illustrate how easy it is to gain access to the data 
on these files. 


We will be discussing "records" in the data base and 
the "fields" that take up this record. For exatple, a 
record in a tailing list data base tay contain the 
fields: first nate, last nate, address, city/state, and 
zip code. When a record is added to a data base the data 
are entered into a single string variable that is then 
"PRlNTed" to the disk. Data for an individual field is 
contained in a specific substring of this record string. 
Now an exatple to illustrate this. 


Assute that our tailing list data base is set up with 
the following structure: 


first name 
1 ast name 
address 

zip code 


15 characters 


A record, call it RECORDS, will be tade up of the 
following substrings: 


first name — RECORD$(1,10) 
last name - RECORDS<11,20) 
address - RECORDS(21,35) 

city/state — RECORDS(36,50) 
zip code - RECORDS(51,55) 

Each one of these fields will contain exactly the 
nutber of characters assigned to it, e.g. the last nate 
field will contain exactly 10 characters. If your data 
do not fill the field then the prograt adds blanks to the 
retaining positions. These blanks are required to keep 
each field in the proper substring so that it can be 
accessed when required. 

Records are "PRlNTed" in sequence on the disk file. 
The prograt below will allow you to exatine your data 
base files. All you need to do is enter the file nate 
with extension when protpted by the prograt. The tost 
cotton extensions used by data base prograts are ".DAT* 
(Filetanager BOO and Softside Database II) and ".DB" (A U X 
Data Management Systet). 

mfs pg :r;4 


Sote of the prograt could be used to develop your own 
application. Line 10 ditensions the string variables 
used in the prograt and opens the* keyboard for input. 
Lines 20 and 30 allow you to enter your file nate. In 
your prograt you can delete these lines if you are 
working with only one file. Line 40 opens the file for 
input and initializes a record counter, J. Line 50 
inputs the first record into the string RECORD!. At this 
point you can put in the necessary tampulations of the 
record. Be sure to dose any open channels after all 
records have been read (line 120). Lines 130 and 140 are 
error traps for cases where a file is not found on a disk 
or the last record on a file has been read. 

With this basic knowledge of disk file structure you 
should be in a better position to fully utilize the 
powerful data base programs currently available. 


DATABASE FILE EXAMINER 


5 REM ***EXAHINE DATABASE FILES*** 

7 REM *** by Bill Deeent *** 

10 DIM FILENAMES(12),FILESPECS(14),RECORDS(400) 9 I! 
(1)I OPEN 14,4 0 "K:" ' 

20 TRAP 20:? 1 }{|HICH FILE DO YOU WANT TO EXAMINE": 
INPUT FILENAME!:TRAP 40000 
30 FILESPEC!="D:":FILESPECS(3)=FILENAMES 
40 TRAP 130:OPEN II.4.0.FILESPECS:J=0 
50 TRAP 140:INPUT *1;RECORDS:J=J*1 
60 A=INT(LEN(RECORDS)/10) 

70 ? "JRECORD 

71 ? :? :? " 1234567890" 

72 ? :? "CHARACTERS 01-10: "•RECORDS(1,10) 

75 FOR 1=2 TO A:? "CHARACTERS *;(1-1)*10*1?"-"5HI 
05": "jRECQRDS((I-DMO+1,I*10):NEXT 1 

77 IF LEN(RECORDS)=A*10 THEN 80 

78 ? "CHARACTERS "|A*10+li*-•5LEN(RECORDS)?■; ";RE 
CORDS(A*10*l) 

80 ? :? :? "PRESS E TO END.":? "PRESS ANY OTHER KE 
Y TO CONTINUE." 

90 BET 14,B:IS=CHRS(B) 

100 IF IS="E* THEN 120 
110 GOTO 50 

120 CLOSE «l:CL0SE I4:END 

130 close ii:? :? -file not found*:for i=i to 300 : 

NEXT I:6RAPHICS 0:60T0 20 

140 ? :? "JRECORD "5J5" WAS THE LAST RECORD":? "ON 
THE FILE.":F0R 1=1 TO 800:NEXT IlGRAPHICS OlGOTO 
• 120 
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